home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ WinNT AutoLogin Enable.xpl < prev    next >
Text File  |  2003-07-30  |  4KB  |  107 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="2"
  4. "UIPATH 1"="Network\Auto Login\Windows NT/2K/XP"
  5. "UIPATH 2"="Startup/Shutdown\Startup\Windows NT/2K/XP\29) Auto Login"
  6. "NAME"="General"
  7. "VERSION"="2.02"
  8. "LANGUAGE"="VBScript"
  9. "OSVERSION"="0101011"
  10. "TEXT 1"="Enable auto login"
  11. "TEXT 2"="Enable Shift override"
  12. "DESCRIPTION 1"="Auto login can be used to bypass the "Press Ctrl+Alt+Del to login" nagging screen at bootup."
  13. "DESCRIPTION 2"="Enable auto login ONLY IF you have already set the correct values using the "Settings" plug-in below."
  14. "DESCRIPTION 3"="You MUST enable "Auto login count" to take advantage of the auto login feature more than ONCE. Maximum allowed value [4294967295] is used here. This represents how many times you can auto login."
  15. "DESCRIPTION 4"="To temporarily stop auto login (ONLY IF enabled) in order to logon as a different user, press and hold the SHIFT key before the "Login" screen appears. This will allow you to logon by typing any (other) valid user name and password."
  16. "DESCRIPTION 5"="CAUTION: It is advised to disable "Shift override" for security reasons, e.g. on a POS (Point of Sales) terminal."
  17. "DESCRIPTION 6"="WARNING: Your password and user name information are kept in the system Registry in non-encrypted form, and could be revealed if anyone were to logon locally onto your machine, and use the Registry Editor. We suggest only using this if you have non-critical data on your computer and/or if your machine is located in a secure physical environment."
  18. "DESCRIPTION 7"="NOTE: You can also bypass the login prompt by using the Windows 2000/XP/.Net "Accounts and Passwords" applet inside Control Panel."
  19. "AUTHOR"="Xteq Systems"
  20. "CONTACTURL"="http://www.xteq.com/"
  21. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  22. "COMMENT 1"="Modified by AXCEL216 [axcel216@aol.com] on 4-11-2002."
  23. "COMMENT 2"="Thanks to Tony Jaeger [tony_jaeger@msn.com] for the Startup/Shutdown folder idea!"
  24. "COMMENT 3"="Microsoft Knowledge Base Article - 315231"
  25. "COMMENT 4"="See this web page for more details: http://members.aol.com/axcel216/2k1.htm#BAIW"
  26.  
  27. sRP="HKLM\Software\Microsoft\Windows NT\CurrentVersion\WinLogon\"
  28.  
  29. Sub Plugin_Initialize
  30.  if RegPathExists(sRP) then
  31.   i=RegReadValue(sRP&"AutoAdminLogon")
  32.   if i=1 then 
  33.    SetUIElement 1,true
  34.   end if
  35.  
  36. '  i=RegReadValue(sRP&"AutoLogonCount")
  37. '  if i=4294967295 then
  38. '   SetUIElement 2,true
  39. '  end if
  40.  
  41.   i=RegReadValue(sRP&"IgnoreShiftOverride")
  42.   if IsEmpty(i) or i=0 then
  43.    SetUIElement 2,true
  44.   end if
  45.  
  46.  else
  47.   Disable
  48.  end if
  49. End Sub
  50.  
  51. Sub Plugin_CheckData(ElementIndex)
  52. End Sub
  53.  
  54. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  55.  b1=GetUIElement(1)
  56. ' b2=GetUIElement(2)
  57.  b3=GetUIElement(2)
  58.  
  59.  if b1=true and b3=true then
  60.     Call MsgWarning("NOTE: To log on to the system as a different user, hold down the Shift key after logging off to reenable the normal Logon dialog box prompt.")
  61.  end if
  62.  
  63.  if b1=true and b3=false then 
  64.     Call MsgWarning("WARNING: Shift override is now DISABLED. To reenable the normal login prompt you MUST make sure you are able to access X-Setup in the future using the SAME configured user name in order to disable auto login again!")
  65.  end if
  66.  
  67.  if RegValueExists(sRP & "AutoLogonCount") then
  68.     Call MsgWarning("A AutoLogin Count value has been found inside the registry. Depending on the value of this setting, AutoLogin might work or not. Please use the ┤AutoLogin Count┤ plug-in to check this value and its description.")
  69.  end if
  70.  
  71.  
  72.  
  73.  if b1=true then
  74.     Call RegWriteValue(sRP & "AutoAdminLogon","1",1)
  75.  else
  76.   s=RegReadValue(sRP&"AutoAdminLogon")
  77.  
  78.   if IsNull(s)=false and Len(s)>0 then
  79.      Call RegDeleteValue(sRP&"AutoAdminLogon")
  80.   end if
  81.  end if
  82.  
  83. ' if b2=true then
  84. '    Call RegWriteValue(sRP&"AutoLogonCount",4294967295,2)
  85. ' else
  86. '    s=RegReadValue(sRP&"AutoLogonCount")
  87. '
  88. '  if IsNull(s)=false and Len(s)>0 then
  89. '  Call RegDeleteValue(sRP&"AutoLogonCount")
  90. '  end if
  91. ' end if
  92.  
  93.  if b3=true then
  94.     if RegValueExists(sRP&"IgnoreShiftOverride") then 
  95.        Call RegDeleteValue(sRP&"IgnoreShiftOverride")
  96.     end if
  97.  else
  98.     Call RegWriteValue(sRP&"IgnoreShiftOverride","1",1)
  99.  end if
  100.  
  101.  
  102.  Call Restart
  103. End Sub
  104.  
  105.  
  106. Sub Plugin_Terminate
  107. End Sub